7 

a 

V 
8 



LABEL OOOCO0OO0PRIMEROC17510OCC tx OB JECT/Rt AU; F ILE SUURCEP ILE = SYMB0l/L 1 57 ; END* 



OBJECT /READ 



'4 



18| 

19 

24 

i# »' 

3 ^' 
a Z8 

|#P' 
■^ po 

31 

• \n\ 
I 

133 
34 

J- 

A :)6| 

,39' 
1421 

# L4 

48 

^r 

iO 
SI 
52 

53 
54 

55 



:h 



• 



sMMTusr 



i 



25 

26 4 

27 

28 

29 ( 

30 

31 

32 \ 

33 

34 



36 { 

39 

40 

41 

42 

43 

44 { 

46 

46 

47 I 

48 

49 

50 ( 

51 

52 

53 I 

54 

56 

56 \ 

5? 



,31 



I III 

12 

13j 
14 
I& 

p 

1,9' 

P2 
23 

lv.r 

\m 
n 
n 

2» 

3A 
31 ~ 

32 
13 

I 
\w 

37 ~ 



13 
M 
46 
t6 
>7 
t8 
«9 
H) 
51 
S2 



BEGIN REAL COMMON; 

XX LIST/CANDE SOURCE FRUGRAM, 11"72. *XX 

COMMENT t .* TlILEl._.Hi:Ma/_tiiZfiiL..JJL&J^..JLiVL.....S.y.SlE.M„ . * 

* FILE IDI SYMBOL/LIST TAPE I0« SYMSOLa/FILEOOO * 

* THIS MATERIAL IS PROPRIETARY TO BURHQUGhS CORPORATION * 



AhU I.5...iiinT..ItIJl..R.E.PMQA/.C.£Di.,_LLS£.[lA....tie D..l^.CLO.&LU 

EXCEPT IN ACCORDANCL WITH Pt^OGftAM LICENSE OR UPON 
WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF 
BUfiRjQiiiihS CQP±aRALlOM.i.. D£.IHai T/ HIGH iga.iN ^^iHZU 



* 

* COPYRIGHT CO l97l* 1972 BURROUGHS 

* AAlZQJiQA.. .AA3J2166 kA2Qtt.iI 

XX RANDOM UPDATE VERSION, :tXX 

COMMENT PROGRAM EXECUTION PROCEEOS Ab FOlLOhSS 

. R E A Q •! If ." ,. F-ILE^ ,_£.LA C I.N.G .. lA B,_. ^.Q R Q S.. Ah. AR ILA Y 

UNTIL EOFMARK ( 100000000 ) IS OBTAINED. 
EACH "IP" TAB WORD IS CONSTHUCTED AS* 

WDtM.f2J « TYPE. CQDE 

CODEsO, INPUT RECORD, SEU. IMO. TYPED iN 
INPUT RECORD* SEi. NO, NOT FYPeO 



I.?. 



53 
54 
35 
56 



2) 
3) 
4) 



C0DE*2, 

CpDE=l, 

COOE-3* 

WO.C 4i 4]v 

.("B A §£♦♦.« 

WD.[ 8t 8]s 
WD.C16J 5]s 
WD.[2i:271s 
SORT 
MOVE 



CORPORATION 



!'5fl.R.IA,!!.. 



BY USER 
IN BY US£H 



* 

* 
* 

♦ i 



ROWS ) 



SEQ, ..NQ... FOLLOWEL) BY GRGyP MARk ( DEuET.ION ) 

"FIX" INSTRUCTION " ' " 

WDt NO. OF "BASE" 

S JIQ..N T A i N.. D 1 S K . A OR E 5 5ES . OF TAN K FILE 
RELATIVE SeG. inQ. IN TaNkFILL ROW 
OFFSET CIN WDS.) OF ImPUT RECORD IN SEGMENT 

SEQUXNCE.Na.* (JN. QCTALi ASSUCIaTEJJ WJTH RLCJ 

ARRAY "SORTA" ACCORDING TO SEQ, NUMBER FIElD 
SORTED "IP" WORDS TO ARRAY "SOrTAA"* 32 WDS/rOW 



MERGE SORIID rlP". WJ3RDS WJT_H_"J1^ i<JIRD§t 

EACH "IT" WORD IS CONSTRUCTta AS J 

WD.[ 4M63* LOCATION CRECQKO NO.) Of RtCORD In SOURCE FILE 

W0,[2l» 2 73* SEQ, NO, ( 0_CTA_L J__l)f RE^LQRp 

ARRAY "CHNGS" IS USED To'st^ri^E "cTanGE"" INSTRUCT IQnS"^^^^ 

During the merge, each "Chngs" word is constructed as« 

I^P • 1 .3 2.il4j.iLQe.AIi.QN C fi.£t.QK.O._.,^.aj,l_ of . ..RECQ.RU Ih SflU llt£ 

WD,Cun = l if a "DELETE" INSTRUCTION. 

WD.C2:i]sl IF A "REPLACEMENT" RECORD C NOT InSERTIqn 

.THE.RQUTIME .S£IS.j;C.,UPXLQG'! T.y,._IRJJ£ ijHtiNj a q_qpj 

(SOURCE FILE TO WrKFIL) IS REQUIRED. A COPY IS REQUIRED WHE¥ 

A) A RECORD HAS BEEN DElETED FROM THE SOURCE FILE 

B). A_.RICORJl MUST a.E .'.'IMEHTeii" INTO THE Sili)Ri:L £lk£ 

A COPY WILL -NOT- BE REQUIRED WHEN 

A) A FIX IS EXECUTED Ob AN EXISTING RcCORq 

B) AN "EXISTING" i^EC U_H D L3_ ^' R E fi A C E D Z Wj TH A NEw RECOR D 

THE RE a U I R E D RE CO R D S ARE 



EIUE. 



) 



GCOIGOOO 
OGOiOiOO 

QQQXQttn 

OOOlOlll 
00010112 
QaQl.D.11.3 
00010114 
00010U5 
O.Q.Qi.0.116 

00010117 
00010118 

J3.Q.Q.10119 
00010200 
OOOiOjOO 

..QjQ.g.l.QjiIO. 
00010500 
00010600 
Oi) 0.10.7 (20. 
00010800 
00010900 
OOOllOOO 

OOOlllOO 
00011200 
00011300 
00011400 
00011500 
.00011600 

00011700 
00011800 
.Q.OLOl.l.?ilij., 
00012000 
00012100 
OOP 12200 



IF PRINTING IS REQuESTEDf 
PRINTED DURING THE MERGE. 

- -.- A.LL._R.t£MD5. A.R£ ..A.SSUM£0 _1Q. 

FIELD POSITIONS 73 THRU 80 
WHICH ARE ADDRESSED BY RElAUVE 

-Rl^fi.RJl-J.UMja£B__l.i._l.N,.IM£.._.LLU.i 

FILE PFILE DISK SERIAL (2*80); » "IP" FILE 
FILE SOURCE DISK RANDOM ( 2* lO» 30) ; » R ANOOM 

_EXLiL_Sfi-C£_. _ DISK SERIAL C3* 0. Q)j it .SFRIA. 

FILE OLDTAB disk SERIAL (2*30*300)* X QlO "IT" 

FILE PATCH DISK SERIAL [20J600] (2*10*300); % 

-FILE NEWTA8 DtSK SERTAL r? Q» 3QJ ( 2* 30* 300* SAVE 



tONJAjN A jjEQUENtE NUMBER I N 
cXcEPT "TYPE DATA" FILES* 

PQSITIOiN (STARTING WITH 



00012300 

00012400 

OQ_Q.l.,g.500. . 

000x2600 
00012700 

..Qu..y..L2ima.. 

00012900 
00013000 

00013200 
00013300 
00013400 
00013500 
00013600 

00013600 

00013900 

^M0.iMi3iJ_ 



SOURCE 
SiiiJiii££. 



FILE 
FILF 



00014100 
00014200 



^. 



FILE WRKFIL 
FILE MONFIL 
SAV E ARRAY 



DISK SERIAL 
DISK SERIAL 
A^ SCO I 30 3* 



C20«6O03 (2»10*300»SAVE 1)1 
(2*10*300)* X MONITOR FILE 
SqRTA*MENGECO >S i 2 3 * 



FILE 

SCRATCH PAD FRE 

D; X NEW "iT" FT LF 



X NEW "IS" FILE 



00014400 
00014500 

00014700 
00014710 
00014600 



T< 



9 

10 

11 I 

12 

13 

14 i 

15 

16 

17 ( 

IB 

19 

20 ( 

21 

22 

23 ( 

24 

26 

26 ( 

27 

—I 

26 

29 ( 

30 

31 

32 ( 

33 

34 

35 ( 
36 
37 

36 I 
39 
40 

41 < 
42 
43 

44 f 
45 
46 

48 
49 

50 I 
51 
52 

53 f 
54 
55 
56 i 



25 

;>* 

58 

27l 

isf 

29| 

'V 

3ll 

p\ 

33 

M 

te' 

36 

,37" 

3H 

p9 

hr 

h 

45 

(■•J 
50 
51 
5:2 
53 
54 
5S 
56 
S7 



PAHAMSCOJ 10]* BASECCS163* N,rc0:30 
ARRAY 50RTAAi.CHNGSC0l32^0:32l; 

RIAL Al» Ag, A3/ A^/ Jl?, B«?.a 

CODE, EOFMARK» HRAKGE# I* URANGE 
NCM6* NCT» NPARAMS, (MPlR, NSEQ* 

PtJf .PCT# P.R£¥# .PflJ?#....._RSEQ/__...fW.QR 

SEQ* SZN* SZQ* TANKADR5' TCT* I 
BOOLEAN BFULL* BRAAK/ CHANGES- C 

FjNTOQ^ MQNI TRj. MT,*,. NUf^t5ER£t)> PH 

DEFINE LEFTARROW * «*•'«; 

5T«E AM PRaCLDuRE MO.V.£lN# A^BJJ! VALU£... 

I*********************************** 
BEGIN LOCAL m; 

S I I = L C N. ,; p 1 1 = LQ C_Mi.^ D 1 ' lOl±lJi_,U 
SIIsA; DIIs'B; DS»sN iiios; M(DSJe32 

end; 

X********** ************** A********** 
REAL STREAM PROCEDURE gj^EGfri i^PuT ( A2 

X****** ********* <^«** *****•• ********* 

,. .BEGIN..., - 

% ROUTINE OBTAINS NUMBtR OF ChAKA 
% FROM THE WORD WHICH PRtCEEOS TH 

% THE ACTUAL USERS IJ^.PaI a£iilR&__ A 

Sl» = A2; Si;=SI-3; CI«*lOc SULOFi 

Di:sDl-3; dsj=3Reset; 

END ST.R.EAM PfiQCEOURE;....SiZi:pF iisPulA 
X*********************************** 
PROCEDURE SDRTCL'U); X RECURSIVE SON 

,.,,.X. *.,,****,.*.■*..*.,*..*.*,**.,*...*..**..*.*. ***.*.*.* .*.*..*..*,.*.Jr.,* *„*...*. 

VALUE L»U; 
REAL L'U; 

- BE.GI.N B.£AL.-.l^.J.x.Kx.M.i_ _ -.. _ 

LABEL AGAIN#T0P#B0TT0M,£XIT; 
IF L NEQ U THEN 

.. _ .IF L*.,l,«U,. TH„EN , 

BEGIN IF SQRTa[L3»I:21:273 GTR 
DOUBLE ( SORTA [L]*SURtA[U 3 *«•* SON 

E^.O - 

ELSE 

BEGIN Mss(U+L) DIV 2} 

SORT (L* M 1 J SQRIi.M*ljil.) J 

JJ=M+i; 

FOR L:«L step 1 k^HlLt SQHITACLJ 

IF. L- LEQ...M ..IJl£!!i _ 

BEGIN I«*K»»Li 
AGAIN! IF I GTR M THEN qO TO TOP^ 

II 4 aiR_.y _iH£N..Ga._ia. jojiu 

IF SORTA[i] ,[2H2n L£Q SOH 
TOPI MERGECK]:=SDRTA[j]; 

..,.UL?J+.,lf _ 

IF Kl*K+i LEG U THEN GO TO 



j; 

i.3* B^i^ Bi^ EADR 

* ulNE, MAX, Nl, 

NWOHD* 01» 02# 

UiL._..R£CSl* _.._ 

PTN* TSEvJ/ l^SER> 

UPYTOG* EnOTOG* E 
NX/. ^.PH^TCHKr SFJ^S 



.Sii. _ 

N2« NCHRS* 



qltqg* 

Jt S.«U.A5.H£D.i. 



*************** 

W,ilL ., _ 

*************** 



****************** 



****************** 



!^A.fl...cH«; 

HOS; DS:»32 WDS); 



* « ** *,**,*.*,** 

); VALUE A2/ 
*************** 

CtEHS In U3EKS 
t ACTUAL USt^^S 
I /U1D.B£SS "Aci" . 
IMPUT/ DI! = UI + 5^ 



********************** 



****************** 



INPU 
INPU 



T RtCQHD 

T. 



DS: = 3CHt^/ 



*********** 
T ROUTINE 

,* .*...* „*.*,*..*j^.,.* ,*..*. 



* * ** 

.*.,*-* .*. 



'************** 



**** 

.*, ,*. * .*.*..*..ft.A.,t.*.*. JL*_*..*.tjt A..*.*, 



00UH900 
00015000 

Qil.y.i5l.Q.Q. 

00015200 

00015300 
QDi?i5A0.Q. 

00015500 

00015600 
Q,Q.01.5ZQ0 

00015800 
***00016100 

- - jOQUifiZCQ.. 

***00016300 

00016400 
._..000i6500 

00016600 
00016700 

*** 0.0016.800 
00016900 

***00017000 

oo.fli.?iao- 

00017200 
00017 300 

o.QD.i.7.a.ao.. 

00017500 
00017600 

Q.0Q17.7-aQ 

***000i7800 
00017900 



^ORTAtUJ, [2 
TACul-SORTA 



l!27j THEN 
Ll3); 



00018100 
00018200 
QQOIP jOO 
00018400 
00018500 

00018700 
00018800 

.j0Lflii.4B.ftxm- 

00019000 

00019100 

-O0Q 19200 



.[21:273 LSS SURTA [ J 3 ,121 J2/ 3 DOi 



Ml„._._ .^ _ 

TA[j3 .t^ita; 



7i ^ 

AGAIN ELSE GU E 



HEN GO TO bottom; 



00019300 
00019400 
00019500 
00019600 
00019700 
.QMl.?Mil., 
00019900 
00020000 



BOTTOM! MESIGEC(«3!»sSCRTA[i3; 

n»ui; 

IF K:«K+i LEG U THEN 30 TO 
EXIT! MOVE ( U-L + 1 * MERGE [L 3* SORT ALL 

_^.. _.END 

END 

END sort; 

X* *»»,* *,** *************************** 



again; 
J); 



********* * * * **********;*********** 



0002Q200 
00020 300 
002 0400 
00020500 
00020600 
JmiJiLOZOD. 



00020800 
00020900 
***0Oq2 1 O Q . 



m • 



procedure: OISKWAlTd^A^i^O); 

VALUE i»s*d; real i*s,d; array a[*]; co^mumcate,c-8); 



OOOiiliOO 
00021200 



'1 

3, 



'11 

,''■'' 

'l3j~ 

,,« 

117 
1R 

:iy'" 

[:■(.) 
211 

'ti 

113 

!:'■», 
ft, 

27 
}S 
29 
30 

31 

yi 

S't. 

1" 

:36| 

It'C" 

Mi 



13 
U 
♦6 

47 
t8 
49 
50 
51 
52 
53 
$4 

55 

>6 



VALUE i»s*d; real i*s»d; array a[*]; co>"Mumcate,c-8); 00021200 

.1* ******* * * * * * ***.*.***.**** ****** **_*** ***********«_***************•******** Ofl.02 1 3 QD 
PROCEDURE TWXOUT(A#N*T); ^ 00021400 

%******************** *****i,i,*i,*i,iti,*i,ii**1,it Will, ir 1,1,1,* *1,i,.i,i,i,i,i,t it ****1,1,1,i,i,1,-l,i,1,QQQ2\ ^00 

VALUF NjT; n^n-.wrv^ 



00OiJ1700 
OOOiilSOO 
gOOilQQQ 

00022000 



...value -Mil i 
REAL A*N*T; 

BEGIN COMMUMCATE(-ll); 

BRA.AK ! =. BRAAK...CIR BMLtANCTJ.; l.._HCP RETUK.KS J H; . BRLAK.JjCCyRREQ 

END* 00022000 

X***************************************r***********^**^^^^(^^<,,^^^^^^^^jm^^QQy22i00 
REAL STREAM. PROCi:DUE,E.Eaf_.C.UUNI.ti:.)J _ aaQ222QQ 

X******************************** I,*,**** I,**** 1,1, 1,1,* iti, 1,1,1,1, 1,1,1, ^,^,1,1,1,^,^,^,^,^^,^,^,^,QQQ2'^':iQQ 
BEGIN 00022400 

§i{-=Ei ., its.u.r,s.i.-.aoJ nxi,.?.LQ.c...Li...,u,§..r.»h,a.ii,;. 0002^500 

sh*f; i4(sI{osi*8); dhsloc r; ds:»wds; 
si«»»f; 7csi:ssi+8); dijsldc lofcuunt; dsj»wd5; 

-END SIRE AJMPaD.CEDURE.i:oFCflLlfii.i; 

%*******************************************,i*** 

PROCEDURE MSGCNO/SEQ); VAlUE NO^bLQ/ REAL NC*Stfi; 00023000 

**-*■* *•* * * * *• * * * * *.*.**..**-*..** A* * * *.*.*.*.* **-*.*.***.*..*.*.*.*.»*.*.*...*,** t.* *,.,*..*..* *A.*.*.*A,*.A.*.*.*.*.*,*.±.0,(;(J,23 1 ao 

BEGIN REAL SjZ^SZ; 

REAL STREAM PROCEDURE NCUNV(N'SU); VALUE N; 

BEfiJN _.,__. 

N; 01 {.LUC NC(JNV> DS:-bOKCi UI;sDI-a^ DSt-ZFILL/ 
SI!=LUC NCONV; If SC = " " THt-hj 



00022600 
00022700 

o.oQ22&aa- 

*********************** *QQy22900 



SI»=LOC 
DIJ=LOC NCONV; 

BEGIN - 

8CIF SC=" " THEN Si:=Sl+l LLSt 

BEGIN DvS«=ChR; TALL Y ! sTALL Y + 1 ; END); 

END. ELSE TJ^LL^lsei...... _ ..:_..___^ _ 

n:=TALLy; Si:=LCC N; ui:=SIz; Ui):»WDi>i 

END pkocedure nconv; 

.,.« *.* • *..• *..«. •-• J.*-» J.-*,*.«...«.,4t*.A,3..«.-A..».-»-«-«..*,J_»-X_t...f_«_«..*.«..j..J,.»..j,_«, 

REAL STREAM PROCEDURE Ml(A,N*SIZ)i VALUE 

BEGIN 

diisa; psja7LlT"REC0RD "i blJ=LaC n; ds:= ilZ chr; 

DSJ=9 Lit " DLLETEU."; TallV:-16; Mi! = rALLYy " 

END STREAM PROCEDURE Ml; 
% 

REAL STREAM PROCEDURE m2( A, IM, bl 2 Ji VALuE U^HUi 

BEGIN 

DIJatA; DS«s7LIT"REC0RD •»; SitsLQC N; DS!»SIZ 

DSJs2lLlf" IS NOT IN YOU« FiLtV"; TALLY :=26i 

END STREAM PROCEDURE M2; 

..*,«-,».« t «f «»»«»»»»»» » » » » « « ««»♦»«»«»«» •_•_•_• •_• 

REAL STREAM PROCEDURE m3( A* N#Sl2 jTv ALUE n/SIZT 

BEGIN 



CHRJ 
M2:=TALLY; 



...l_iLJ. . •,.•_.• Jt,t.,J.J".. .•._•__•. •..,i.»_±.»J»._l-.». J., .»..•.., 



-.PL».'».A.; i)S|324LIT"IMf^R0PEK FJX Fqr RECORD " ' 

S I I sL be N ; D S : = S I 2 C H R ; T A L L Y 5 =?"4"/ M 3 ; _ j^-j_;L y; 
END STREAM PROCEDURE M3> 

-..• . J J_JLS-,.l ,«. Jl. A.f_l.-»_»...t_H_*._« 



_t. »...#. A. *,.•... 



1. t t »t«»i».«t«»«.««,,>»«^^^y,^,^^^^. 



?,.a ^ ____^ 

REAL STREAM PROCEDURE M4(A*N,Si2J> VALUE N*SU; 
BEGIN 
DI««A; DSj»3 3LIT»M^ISSJNq_qROUF MA*^J^J.f< fix R ECORD 

n; dsjssu chk; i allY;s3 37'maTbTallT> 



00023200 
00023300 
0Qfi23.<iQ0 
0C023i3C0 
00023600 
00*3 70 
00023800 
00023900 

0002A100 
0002A200 

.9MMJM 

00024400 
00024500 
000.24600 
00024700 

00024fl00 
*..,Q.Q.0k.4.9Qfl.. 
00025000 
00025100 
000 25200 
00025 300 
00025^00 
,.,00025500 
0002"5600 
00025700 
000 25800 
00025900 
00026000 
. 00026100 



'; 



00026200 
00026300 
00026400 
00026500 



sij^ldc n; DSj'ssu chk; 

END STREAM PROCEDURE M4; 00026600 

jLjjij-8-Aj-»_j_«^j » V , ♦,,.00026700 

00026800 
00026900 
00027000 



REAL*"S T R E A M^PROctciuR E * M5 ( A * ut S I 2 ) I* V A L UE ' N ** S I* li 



24 
3 

4 
5( 



BEGIN 



OH wa; DS|g41LlT"CANN0T LOCATE YOU R F I X _S T H_I NG FOR RECORD "j 



9 

10 

11 

12 

13 

14 i 

16 

16 

17 I 

IB 

19 

20 I 

21 

22 

23 * 

24 

25 

26 ( 

27 

26 

29 ( 

30 

31 

32 ( 

33 

34 

35 i 

36 

37 

38 1 

39 



42 
43 
44 
45 
46 
47 
46 
49 
50 
51 
52 
53 
54 
66 
56 



m 



llOl 

n 

1 .' 



./I 



PI 

M 
27 
28 

29 
30 
31 " 
32 

331 
3Ai 

be 

37f 

|J8 

39 

40 

4) 

M2 



45 
«6 
47 
48 
4d 
50 
51 
52 
53 
54 
55 
56 
S7 






si:=LOc n; ossssu chr; rAULVisai; m5:s'iallY/ 

END STREAM PROCEDURL M5; 

..•• • ..• ,«,.»._«.§» t • •Jl..t.,.jt, ,«..•-•-*-.« .1.*. «.*,».-•..»..*..» J.,.4_J ,I,-.S..« X.«...l..Jl.Ji.a t.l. t ,»-«.jt-». X,t-JI..J.* Jl-Jt 

REAL STREAM PROCEDURE M6(A*N»5IZ); VALuE N/SU; 
BEGIN 

OHj-A; DStg39LlT"NQT ENOUGH HQQM FQH YDuR Fix IN R ECORD ^j 
SlIsLOC N; DSJs SIZ CH«; TALLY;=39; M6!=TALLy; 
END STREAM PROCEDURE M6; 

SeQ J» NC0NV(SEQi.Sl2); 

IF N0»1 THEN SZJ«Ml(A»SEg#SIZ) ELSE 

AMZa i21.«M2-CAA.S.£.aj.5.1.ZJ .£i.S£„ _ _^_ „_._._ __. 

THEN SZlsl^SCAfSEQ^SlZ) ElSE 
THEN SZ:=Mi»(A»SLQ'SIZ) EL^E 

JME!tL..5J^=}L5iAt^i.AeJiLll.JL)..^£^.JLlX=MALAj.Jil S > S I Z U 
TWX0UT(A[O]# CSI2 + SZ)M ); 

END PROCEDURE MSS; »v,--w,^w 

?.**** ****** *.***,*.*.* **,*.*,*****.** *..**„* ******************* ******* * **** * **** *iniiHiCi002fiB<^0 
DEFINE TRB»(IF SB THEN OS: = SET ELSE Ds 8=HESlTrSKX P SBJ»; 00Uii8900 

DEFINE FTC=»SI:=SI*3; CI» = 0l+5; S^lP 3 DBMbTRB*' 00029000 

DlflNE CTF=SI:_?.S.I+5i SJ4IP 3 SBi QJI =Ul±3i.iSX8a*-i -._. MOZSiQa 

X**«*4r*il>*******ilr*******#ir*iir**«*«*********ilr*******ili**4t«:k*****************0QU«*9200 

STREAM PROCEDURE RETURNCA»8); 00029300 

***.**-*-**-****.**..*# itjk jtjttjt.^.*.^^^ 



-IF. ND»2. 
IF NQ=3 
IF N0=4 

.IF Na».b. 



00027100 
00027200 
•-x A. * .» ..t -• ji .» j..*-«. ♦ * _»_Q.O. y .6 X J-0 0„ . 
00027400 
00027500 

I1ClQ22^6ACI 

00027700 
00027800 

♦-■♦-<--»-»H» •»■♦-*-♦■♦--»«♦■•-••-» -f-r-^-^-O-OU-C '-9-00- 

00026000 
00028100 

-— - -Q-oflzaaao-. 

00028300 
00028/100 

-xixm2a.&oii-.. 

00028600 
00028700 



. %.* ******** * *.* * *,,***.*_*„*.*.*.* *,*..*.*. *.*.***.*, 
BEGIN LOCAL AT^BT; 

siJsLOC a; di»»lqc at; ftc; 

, Sl J =L QC Bi D 1 1 = LQC &U F IC; - 

siisuoc bt; DH*LOC a; ctf; 
si:«LOc at; ousloc b; ctf; 

Dll-aATl S Ll-ai,JIC -.ai-Oi»-l.-a>< D S ; 

Dn = BT; sij«LOc a; dsjs^voss 
end; 

PROCEDURE swap; 



00029500 
00029600 
0iH1.^9.7XK) 
00029800 
00029900 



00030100 
00030200 

* * * * i, * * it * * * * * * * * * * t, ■», * * * -k i, i i i, ic 1, *f it * 1, Q QQ \i() ^n Q 

OOU30400 



-- UUUduaog 

X **************************** ********************************«**********oo030500 

- B.E,G„IN __ - .,„,. , _._ : _ _. _._ 0003 0^00 

array ts*tm[om]; 00030700 

return{sorta#ts); return(mehge*tm); 00030800 

END PRfiC t.DUR£_ 1 In APi....... , _ ._.„ OQ0309QO 

S;*******************«********************************ii,*************^»****QQ031000 

TREAM PROCEDURE MAKE300CF I IL* SPECS ;i VALUE SPECS; 
% 



STREAM PROCEDURE MAKE300CF I IL* SPECS ;i VALUE SPECS; 00031100 

%********* ************** *** * **************** ***** ********************** *0Q 03 tpQQ 
Dr-/<TM" " " ' ■- - - ^ 



BEGIN 00031300 

siisfiil; 3(Si: = si-b); dij=loc fiil; ds;svsos; oo03uoo 

Si « ."f LU. ' lie s i»gSi-t-8 ); _Q i»»loc jh l!_ ^ s : s w d s ; 00031500 

sijaLoc specs; oii*fiil; "ds»«wds; % blocking factors 06031660 

END STREAM PROCEDURE MAKE300; ' 00031700 

%*************♦ *** ** ***** ** ******************* * * * * * ******* **** ** ****** * * 00031B 0Q 
REAL STREAM'pROCEDUHEDECONVUyy" VALUE ~x7 ' " ' "" '"' " "'' 00031900 

BEGIN SiSsLOC X; OUsLDC DECOnv; US:= 8 UECi LND; 00032000 

% ** *jif *_*********_***_* ** ******************* **** * ** *********** * **** * ********00032100 
REAL S t RE A M PR OC'ED UR E " WHE RE I S ( X ) i % GE T /Tq" DRETsS^UF^^X " ~ 6o03"22 ob 

BEGIN Sn»X; WHEBElSlsSi; ENU' 00032300 

M-**-** ******* * * ******** * ♦ •_* *************** * *_*♦ **** * ***** * * ****** *_* ****** * 0032 ^00 
R~EAL PROCEDURE S IZ ( A l, a"2 ) ;" VALUE AI/A2; HtAL A1.A2;"% GET SIZE FROM Aoh'S0003250'o 

s-' - ' — ■ 

X 



IZta(A2.[33«l5]-Al.[33«15J)x8+A2,C30:3]-Al.t30;3]; 

;b ** *** * **^* ********************** *_**_* ******** * * * * ** ** ******* 

S T R e'a M ' P R do ED U R E R E F R MA T ( A 2 , B 1 Vb 4 . S'e'q , i F L G » S F L G * E A R S ) ; 

X**** ********************************************** ******** 

UALIir kO .at .a/t . KFn.tei fi. Hn /".CAnOXi I 



VALUF A2*Bi^B4*S£Q«IFl G > SFL fl* F AnR&J 



00032600 
• ******************OQ032y(3Q 

00032800 

* # ** ** ******* 00 3 2 9 
--.- . 000 3 3 000 



m t 



2| 

,4 I 



9 

r' 

'13 
13j 
14 
16 
,16 

r 

,18 

,19 

'!!- 

k 

76 
J7 
28 
29 
30 
31 

133 

Im 

■IS 

jiB 
•n~ 

38 
39 



42 
43 
44 
4S 
46 
47 
48 
49 
50 
51 
52 



53 

S4 



56 
56 



COMMENT A2 IS 
Bl IS ADDRESS 

...HA I a .ADDRt^a 

SEQ IS OCTAL VALUE 
IFLG IS TRUE 
..S£kfi.XS IfiUE 
EADRs IS ADDRESS OF 
ROUTINE IS USED To CONVERT 

- . - -a£G.I N L A|i EL- XJ UlCAL-.Si.VxM i 

DIisBi; DS:»eLlT'' •♦; 
IFLGC 
- 63.US 



STARTING ADDRESS OF STHJNG IN AKf^MY "a"> 
OF B[0], 

.Q£„.aL9.i_ X£ KQL„.IIi'.JL_.ilA.JJlx_XU:_^.lXQJ--..lF.--._I-lPX-IlAlA,_ 

OF SEQUENCE NUMBER IF NOT TYPE DATA# 
IF SEQUENCE NUMBER APPEARS IN INPUT KECORD* 

ii:_.-fcixii-_jjr^x_.4iAT_A_i:ik£-. 



LAST LEFT AKMQW iN USERS UKUT kECORD 

INPUT FROM TANK TU STANDARD (80 ChR) FORM; 

.al-LsiADii-SJ- QSJ,5LJ.l LtEXARKDWi. _ _ 

DS:»eLiT" •♦; si«*Bii DS:a9wos; Si: = Aii> 
X SEQUENCE NUMOER IN RECORD 

s c.«!? !! .. Then ..sj is-S-XAi.-£;i.-S.t^.. J.u.M.p...iiu xj j - - -.- _,. ._ _^ ._.. , 



08(IF sc Lss "0" Then jump duT;if sc gtr "9" then jump uuT;si:=Si + n 
); 

4DX.sjae.lX - - -.„ _ 

2(40{ 

IF SC«LEFTARRQW THEN X CHECK FOR END OF RECORU 

... .- -: B.EG.I.JM -....- - - ..„.. - . _ 

SVJ=Si; SiSsLOC Sv; spaSi + s; 
DVJsDl; DIJsLQC EAORS; DIi=DlO; 
--.- IF 3iiC = 0C IHIN...JUMP £1U,T...Z. TILL/. 

siissv; Dnsov; 
end; 

...DS.,!sC.HH.lJ; _ 

L5 SfLG(Si:sLOC SEO; CI«=B4; DS!=&DEC); 

END STREAM PROCEDURE HEFUHMAT> 
._3i.* .*.*,* *..,* * * *, * * * * * ,i, *.*.* ,*, * A * * *,.* *.* *„*..* * *.*, *,*,* * * t..* * * > * * ,* *, * * **************** ** * * * 
BOOLEAN STREAM PROCEDURE F IXCHkC A2* Ol* 02* Ni » n2' E ADR3 ) ; VALUE A2*EADH"b; 
%**********************************************4******^**j,^***j,^^^^^^^^^^ 

.JlQ-MMENl A2 IS STARllkG MnR£§l.,.iJ.L..SlRXJ^fi,_lj^_AfiiiAr_r.A':/_ „ 

0l'D2 ARE START/FINISH ADDRESS OF "uLD STRING", 
N1*N2 ARE START/FINISH ACn^ESS OF "NEW STRJNG", 

lAO.RS I §.-.,. ADD RE_§5-„.0F LAST LEF T ARRQW IN USERS INPUT RECORD 

ROUTINE EXAMINES "FIX" SYNTAX AND ESTABLISHES VaLUES FOR 
01*02, Nl AND N2; 
JEQI N .. LO C A L § ¥ » D I L.A B £L. _£X I T > 

DltxEADRS; OSJsLIT LLFTaRKQw; Si;sA2; blisuOC DJ 

20(IP sc LSS "0" THEN SIS=Si+l ELSE JUMP OUT)/ ^ bCAN TO DIGIT 
IE TOMLE THEN ...GO, ID EXi 1/ L.H.Q. . Q IfillS ., 

08<IF SC LSS "0" THEN JUMP QuT;lF SC GTH 

20(IF SC EQL " " THEN SIJ=SI+1 ElSe JUMP 
- IF TaeaiE THEN._..Q.D .Tfl_EXl.li I ERP.1.Y £1 tLD 

Dii'LOc o; Di«»Di*7; ds!=chr; % save 

IF SC=»D THEN GO TC EXlT^ X NO STHlUf, 
- If .S.C..H__kEF.T-AMO^_Jiii;_!l _ 

BEGIN " " 

svi»si; sii»LOc sv; sitssi+s* 

-^ __Dli»LOC £ADRSL._iJll?Dl*5j _ __ _ ^ __ 

IF 3SC«DC THEN % LEFT ARROW HEPLAc'EMENT ' "' 

BEGIN 

si}»sv; sitss i 'i; s v;^si; bi ;=loc sv; oi;aui; ostswos; si; = sv; 



"9" THEN JUMP 0UT;'sT:*SI + 1) 
OUT )i % SCAN TO CHAR, 



OELlMlTt"K 



OOOJ3100 
0O0J32O0 

QOU 333.0-0 
00033400 

00033500 
0^-0.31^0-0- 

O0U33700 
00033600 

aao.iaaao 

00031000 
00034100 

-O-ao-iagoo 

;00034300 
00034400 

a&0J4-&aa. 

00034600 
00034700 

QQQtti^CHQ.. 

00034900 

00035000 
. .0X10.33-100. 
00035200 
00035300 
.000-35400 
0003550C 
00035600 

• 0CU357.0O 
00035800 

*00035900 
-J)ilQ16XlQCL 

00036100 
00036200 

Qoy_j6igo. 

00036400 
00036500 

0.Q.0.366a.Q 

00036700 
00036800 

D.0.Q..i6..5(2.0.. 

^00037000 
00037100 

Cm.<3.3.Z.2Q£J. 

00037300 
00037400 

_..QJ017^i3. 
00037600 
00037700 
00037800 



SIS 



Sli«Sl + i; SV;sSi; SH»lOC SV; Dl!ao2; QSlswOS; 

SI t«LOc sv; DiisNi; osjawos; sussv; 
sn»si>i; svi» si; sit"LQc SV; Dir»N2; oSt = wDS; 

TALLY»=i; FIxCHK;=TALLY; GO TO ExiT/ 
END LEFT ARROW 

■ sv; 



00037900 
00038000 
00.0 38i_00_ 



GO 
REPLACEMENT> 



end; 
svi»Si; 

AIL 



% IF LEFT ARROW 

sn»LOC sv; ou«oi; osis>,os; sxi»sv; x start of old string 



00038200 
00038300 
00038400 
00038500 
00038600 
00038700 



1^ 

24 
3 
4 
5( 

6 
7 

b( 

9 
10 
.1< 
12 



00038800 
00038900 
00039000 



IF 



'V-. 



II a 



IF 
IF 
SV 
SI 
63 



Si 

TA 
EXiU 

EN 
J**** 
BOOLE 



SC=LEFTA 
BEGIN 
SVI=SXi 

Di««Lac 

IF 3SC«0 

-ENDL 

SC NEQ D 
TOGGLE T 

:*S.l.i Sli. 

» « S I + 1 ; S 

(IF SC«LE 

BEQIJSI 

SVS = S 

IF 3S 

imi 

Sl»»SI+l 

jaLOC sv; 

LLYJsi; F 



RROW THEN % CHEC^ FQH END OF hfCUKU 

.54 1 3U:J.C S^.i i4l.s.ij4.±5.i -..- 

EAORS/ 0H = Dl+5; 

C THEN JUMP OUT TQ tXlT ELSE SIJsSV; 



00039100 
00039200 

00039A00 
00039500 



THEN Si:ssi+i E^st JUMP 
HEN GO TO exit; 'i MISoiNG 

V5»Si; SISSLOC SVJ DlJ»Nl* DS:»WDS> SlJsSV; % NEW STRING 
FTARR8K THEN 



uuTj; 

2N0 DELIMITER 



00039700 
00039800 

jia-oaiwc-- 



i; Si:=LOC sv; Sl{=SI+b; 
C=DC THEN JUMP OUT EL^L S 



DIS=LUC EADHS; DIJ=Dl+5; 

i!=sv; 



); 

DH«N2; DS{«WOS# * END NEW STRING 
JXCHK I sTALLYi. 



D STREAM PROCEDURE FlXCHKi 

* * * * *_* * * *_* * * *_* *..*..*^.* *_*_*.** *.* ,*..*.**..* ,**..* 
AN STf^EAM PROCEDIRE Li)C ATE( bl** ri2* H 



3#l3a»L»Ql»SZ0); 



COMMENT ..SI 
B2 IS ADORE 
B3 IS ADDRE 
B^ IF ADDRE 
L IS RECORD 
ROUTINE MAT 

.i:Q.Nl£NIS Qf. 

VALUE B1*B4 
BEGIN LO 

...„..., ..Jj ts Qi ; 

SI jsBi; 

2(LCIF S 

BEGI!^ 

SVJ=S 

BE 
SI 

EN 
SISs»S 

end; 

s I : = s i + i 

GO TO EX 

J-i» sitsBm 

2CLCIF S 

L2I sn = si + 

lALLY.l«i 

EXITJ 

END STRE 



IS ADO.RES.S. DF.aLQl 
SS OF START OF "EX 
SS Of CHARACTER FU 
SS QF._BC9] IF..NU.1 
SiZE'(2X)36 CHR. 
CHES "OLD STRING" 
R££QRl!...-EiIB '*E1X". _ 

*l*oi*szq; 

CAL SV,0; LABEL LI 
Dlta LOC D/__D1X=0_1 + 



IoTInG" 5T 
LLOrtiNG LA 

.ir.,pE...j.j.A..iA/. 

IF NOT TYP 
AT ADDRESS 
S.I1TE_M_L_N.Ij.. 



*l2'Exit; 
/; DS:=C 



RING. 

bT NON-BLANK CHR, IN RECORD' 

Of . d C I Q i.._ If _J.lPt_ HAIA. .- .. 

E DATA* C2X)40 cHR. IF TYPE QAT 

Ol^LENGTh S2U wiTH 
Ma__SXli>.-J.2.__A.f!l.a_flJ-_if...JlAI.aM£ili__ 



i JL_S.Alt_i;iii3.i_vJlAfiACT.£fL 



C»D THEN 

i; PI5-QJ; IP 5/^■, 

GIN 

ssLOc s«; cis = b<j:; 
d; 

VJ 

))} '"" "■■ 

it; 

Sllj=,Sl-ii__ _ „_.„__ 

C»" " then Si:s3i- 

i; svs«si; si»=L0C 

/ LaxAI£l*.IALLY 1 

AM PROCEDURE LOCAT 



SC = UC ThtN 

D:>:=wao; JUMP OUT <; TU Li; 



STREAM PROCEDURE ED IT<B2*B4*B| 



1 ELSE JUM 
3V; DISsB 



e; 



P OUT 2 TO L2)); 
3; DSJaWQii; 



.t.A*.*.iLiL*A.*.*JtA.i.*A.t.±*A.±AjL*Jt.iL*JL*.JL*Ji 



I5»SZ0#M*S 
COMMENT 82 IS S TARTING ADORES OF "EXIS TING" STR ING* 



%***#******! 



ZN,SFLGJ; 

******* ****************** ****** 



B4 IS ADDRESS QF BC9] IF NOT TYpE OaTA' OF BtlOj U TYpt OaTA' 
B5 IS ADDRESS OF BC20]' 

-iZii lS_L£WiiTH Qf "EX I SI liiG"^ SJ RJAOJ! 

Nl IS STARTING ADDRESS OF REPLACEMENT 
SZN IS LENGTH OF REI»LACEMeNT STRING. 
SFLG IS TRUE TF N nT TYP E DATA Fi LEi 



00040000 

ooo^oioo 

..0^Ji.4iI2ilfl- 

00040300 
00040400 

-.oij.yj.Q5Q-a. . 

00040600 
00040700 

XlM.4-Q£ilO. 

00040900 
00041000 

*.*iiay..^4ixiii-. 

00041200 
**00041300 
Ofl0..41iLQ.O.. 

O0U41iJ0O 
00041600 

ao-Oi*.iZ-aa 

A. 00041800 
00041900 

i}iliiA,2.QI!.0_.. 

00042100 
00042200 

0004230 

00042400 
000^2500 

QQM-KyQn 

00042700 
00042800 
00042900 
60043000 
00043100 

00043300 
00043400 
MM15QJ2.. 
00043600 

000^3700 

Qn0 4 3fiQQ 

00043900 
00044000 

*_taOiiJi.44X10 

00044200 

**00044300 

-_ nn0444nn 

00044500 

00044600 

00044700 



STRING* 



oooA^eco 

00044900 
OOP 45000 



m • 



1 

43 
44 
45 

te 

47 
48 
49 
50 
51 
52 
53 
>4 
S5 



ROUTINE REPLACES "OtD" SThInG kVHH "nl^v" STKING F Ch "FIX"; 
VALUE B2*B4*B5*S20^Nl*SZN*SrLG; 

BEGIN- LQ.Clt 5£flJ. _ _ 

SFLGCSijaBfl; oi»»LOC SEQ; ni!«wDi>j; 

OIJaB'*; 2CDSj«^0LIT" ")i 
- -^- is B2 J._ ail aiI.*.a2IU_ iIU-alL5i_ _2UlS-l.!!iti)£llilX 

si;aNi; DI8=B2; DS; = 5Zfv chr; 
sijsBs; 2(DSts4ecHR); 



% SAVE StWUENCE NO. 



00045100 
000^5200 

.Qu.U4,ii3ai}. 

00045400 
00045500 
0OiL4 5600 
000^5700 
0004580C 
.0 .CMS 9.0.0 
00U46000 



S£L G C S.I,..: »LD£.... S.O!.x._IlI.:.^B '*i__.nilri!;.CU&./j.. 

END STREAM PROCEDURE EDli; O0U«O000 

5 1 RtAM.. .P R aCE DURE DU IFnfi M.Al.CAl^ ai^iL4-*.i>.^SfcitS.F.L(i rPEh J 11 _ „ „ Qa.0 (t.62Q.n 

%********************^r■k***^r^,i,■^,,,i,1^*i>■l,1'^,^,^,*^,^,^,^,^,^,i,^,1,i,^,i,i,^,^,it^,i,1,1,^,^,^,^,^,i,^,^^,^,^QQQ^f^20Q 
COMMENT Al IS ADDRESS Of" Al03# bl li MOnRESS UF b[C], 

B,4.JS .,ADDfi,£&S QF BO.] IE.._J*ilI._l.Y.£t .,-QAlAx..,_Q£ _a Ll.Q,j.,. If llPS^DAlAi.^ 

SQSH IS TRUE IF "SQUASHED" OPTION SET. 

SFLG-TRUE IF NOT TYf»E DATA FILE* PRNTstRUE IF NOT "DISPLAY" VERB 

R0.1^_.T1NE RCFPRMAIS RJECCRD FOi? OUTPUT TO BEMOTE SIATJON/ 

VALUE A I ^ B 1 * B 4 * S S H » S F L (i » P R N T ; 

BEGIN LOCAL SV^SEC; LABEL EXIT; 
D.I«aAJ7 PS.»=8LIT" "; SH^Al; Di>l=lOWDS/ DjSsAi; * BLANK^RCRB 

SFLGCSH=B4^ Oi:*L0C Se«; dSJ=w"D6) % SAVE SEG/NU^BeR 

PRNTCOUsLOC SEO; DS»e7FlLL); SlSsLOC SEq; Dl«»Ai; 
. QflF SC*," " THEN ..Sll »§.l + 1 ELSE DS s sChR ) ; 

PRNTCDS:=LIT" "); SVJ=D1; 0I:=B4; DS!=8LiT" 

siisBi; 

..- SQ.SHC . . .- 

2(40C IF SC»" " THEN 

BEGIN SlJsSl+l; IF SC N^Q " " IhE^ DS:»LIT" 

EL&E „DS.I =.CHR,)-li _„ 

JUMP OUT TO EXIT); 

2(DS:»40 CHR); OSJrLlT" "; 
...LXJJl _ _ .. _____ 

END STREAM PROCEDURE OUTFORMAT; 



'' DiisSV); 



END 



00046400 

... . Oii.i^iiL5.an 

00046600 
00046700 

Q.fi.Pi6aoo 

00046900 
00047000 
000-47400 
60047200 
00047300 

QQ.P.474Q0 

00047500 

00047600 

,000.47700 

00047800 

00047900 

-...ooo.A£.aoxi-- 

OOO^tilOO 
00048200 

.„..aQ-0j.a3-cm. 

00048400 



C.ND aiKtAM PROCLDURE QUIPORMAT; 00048400 

...SIRE AM PR OC E DU RE BE.KM MB£R,C.a1.a.LR£C 3.> VAlUI A 1 *..LAt.£ I _._ _ ^ Q.0Me.60Q 

%***i'*********i'**^t***^,^r*^,i,*^t*^,*^,*****^,^,^,^,1,^t^,^,*ie**^,1,^,i,^,^,^,■ki,i,■t,i,^,1|^,^,^,i,^,1r^,i,^,QQQ(^^JQQ 
BEGIN r\r\(Miaonn 



BEGIN 

..si?.sLg.c LREc; piisAii .,p5;saDtc; uI:sai; tsi = zi-ikL> 
si»»Ai; Di«»Ai; 8(iF sc*" " then siissi+i else'dsT=chh); 

DSl«8LIT" "; 

M.D. STREAM PROcfcy RE ReMUMBER; 

" '********************* ***************00049300 



00048800 

00049000 
00049100 
00049200 



PROCEDURE NEXTPATCH; vv^h^h^u 

' * *_**.*,*±**_**^*_*. *.*.*_* * *** ** ******** * * • * * *_*_*_* ***_**_ **************00049500 



BEGIN 

IF NPTR}»»NPTR+1 

-.^. ....a.E.GiN 

NW ORD » "CHnGS C NPT R . [ 36 : 5 ] * npT R . L 4 3 ;"5 ] ] ; 



000494C0 



LEG NCHG then 



N1 tsNW0RD.C32 Uel' 
-END.... 



% SOURCE hEtURU LOCATION 



ELSE fintogistrue; 

END PROCtDURE NEXTPATCH; 



00049600 
00049700 
0.0p49a00 
00049900 
00050000 



00050200 
00050300 



END PKOCtDURE NEXTPATCH; 00050300 

JL*..* A 4 jt A.*. Jjl*. A.*Js. *.*..*..* * .t*.*.*.±±j_* .**_** *_*Jt* * **»**»** **** * * **_*_* * i, * 1, i, 4, 1, * *i, Hi, i, 1, 1 1, * J 00050303 
STREAM PROCEDURE BLANKL INfcC A* SEQfO i VALUE StQN' ' 00050304 

X******************************i,*********»*^,***»***^***^,*^^^**^^.^^^^^^^^QQyijQ2Qg 

_ BFfi I N n n n c. n on o 



.aouiii 
Dif»A; 
end; 



DSlsaLlT" "; Sn««; DSM8WUS1 Sn»LOC i>£QN; DSisBDEC; 



00050 ^QR 
00050310 
00030312 



T< 



3 

4 
5 

6 

7 

8 

9 
10 
11 
12 
13 
14 I 



■Jl*.**j». ■*.*-* * * * **** ************************* **** ********* **i,*i,it,i,i,*i,i,iti,i,1,i,*4,t,00Q'!iQ^i^ 



15 

16 

17 

18 

19 

20 

21 

22 

23 ' 

24 

26 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

3H 

36 

37 

38 { 

39 

40 

41 < 

42 

43 

44 1 

45 

46 

48 

49 

50 4 

51 

52 

53 I 

54 

55 

56 i 

57J 



• 



''41 

k.l 
"I 

:^ 

ru 

?3 
2-1 
2i 
26 
27 
28 
29 
30 
31 
32 
B;) 



n 

3U 

3S 
40 
41 

42 

- 

44 

*^ 
«6 

47 

«a 

49 
50 
51 
i2 
i3 
M 
55 
5« 
57 



PRUCEDURE 

Bzam 

STREAM 
BEG 

_ .- DJ! 

DI t 

DS: 

DSr 

END 
HRS»s< 

AMPMr* 

IF HRS 

MESGCB 

£ND P..R 



monitorheadeR^ 



P 

IN 

*_A 
= A 

= L 

=1 
S 

TI 

If 
G 

#A 



l**^l^t■k^n,^,^,1,■t,^,^ti,■Ki,^,*^,^,■k*^,^,■k■tn,^,■t,^ki,■^,i,*^,*^,**^,^,^,^,^,^,*^,^,^,i,^,i,^,*** 

■lE.G£fi-,-LI.-M.,.LhR5.-«.i4.l!^jr.JJlHJ!ii_- ..__._ 

aOCEOURE NESG(A*NAM»HRS'MlN*AMPM); VALUE NAM» HhS* MIN# AMP 



1 Q.SJ.?. 

* DSis 

IT" "; 
IT" ••/ 

tream 

M»»TIM 
_HBS.Ji 
TR 12 
[31MHR 
£0lifi£ 



BJ^ir!...:.*J....^ LI « AXJlSiaaJiliS j_.ASJ.=lklTj;.^^^^ __ 

8LIT"MaNlTUR "; Si8=LUC NAmj .SiJ = bi + i; US! = 7CHR; 
DS: = 2DEc; LjSJ=Ln":"; QS:=2Df:c> 

....si..i£.si,±A.i iisx=.iajbJi,A ,. 

PROCEDURE MESGi 

ECD) OIV 216000; MlNJsCTlM QlV 3600) MOD 60; 

1R._ ii.._lH£N .^i?^M^.'!...LL.a£. _".A...f4^ " i^ ._ 



THEN HRS !s HrtS - 12; 

S^MIK^AMPMj; /yRITtCMnNFlL^iO^HC*]); 

MQMlJ.afihEAD.Efi.i ..._ _ 



X***4r A ****************** ***********tlr****<r***** ************* ******** 
X ********************** ******4,************4,**A*******A*,^*«A**A4^^*^A 

BEGIN X INNER BLOCK _._ 

LABEL COMPARE* EnDMERG£» NtXTH/ PCYCLE* MQj^EaF* S«IP/ 

STARtMERGE, TLOOP, wRITENE^* CYClE, READING EOF* ENDLODP; 

-LQf.MARK » = 1,0000.00.00; . 

ACOjisO; Ais»WHEREISCACOi); Aij=WH£HElSUi2s>]); :4 SET ADDRESbES 

0Ii>KWAlTCl*A»30*C0MMCN); * GET tSP KtCOHD 

..y.NE»..»PECGNyCAtl 3.t*OJ8 3); 5t DEClMAl, VAUU.E .QF LINE NQ 

Changes JsBOOLEANcAti]. ti j i] ); 

SQUASHED«-eUOLEAN(Atl3,[2>U); 

_SFLG js An3?[3!l3 = 0; % ON IF TYPE CAtA FIll 

NUMBERED != Atl]a4U] = l AND NOT SFlG; 

PRNT i« AC11,C7»1] V Oi % UN» IF "DISPLAY" VERB 

8C0].t«0i ii.j.?WH.E_RlJLS.I.aI.Q.l.li.....X_._".fci::. ADDR ESSES „ 

B4I.WHEREISCBC10-REALCSFLG) J); 65 : = hHEHE I SC B t 2C 3 ) ; 
RECSZJa HO ' u X REAL(SFLG)> in 1/2 HEcOHD LENGTH 

PRN_ICHK t' (NPAWAMS«aA[l]a27i O J) G TH Q; % PARAMETER CQLj NT 

USER «• A '[2]; 

WITH " "8"lS"C6«36U2ULINEClb:30! 183,lSER; 

W I Iti .•! ''..S..''.II!L[.6 1.16 .U.2.I,&k lhS.ll M2.Q113JL*.U.'AIR1 

WITH " "8"lT"i;6:36:i2J.j.LIi\trib!3C; ItlJ^lSER; 

WITH " "g"lP"Co536: 12ULINEC18:30J iB3'USER; 

niti .". .".&.'!.ii£.!lLl»J.6li.2 ilUJvi£l.L6..J iQ..l.L« J ?iJ..Sxax _... 

WITH AC3]*USER; % RANDOH SOURCE FILE 

WITH AC33»USEK; % SERIAL SOURCE FILE 



FILL WRKFIL 

.F.l..tL nLCTAB 

FILL NEWTAB 
PFILE 

..P-A.r.CM. 
SOURCE 
SRCE 



FILL 

.e:.jll 

FILL 
FILL 



It .AL3I..C6J.121 .NeQ...."l.S**...IilEi^ imiLYI.OG±ElRUEJ.. i...e.aP.Y..iiE£D...lf;...{tOI_"ii! 

MDVE(16f A[5J#BASE); % TANK FILE AQOHLSSf.S 
IF PRNTCHK THEN % PRINTING PARAMETERS GIVEN 

ELGIN...! GET .S£aU£NjC£.-.P.A.Rj.R£-lEtiJ, _ __ 

M0VE(9,AC21 ]#PARAMS); NPARAMS I ■NPARAMS-i; 
LRANGElaHRANGEtaPARAMSfPC JaiOj; 

- - - 11" PC - L-S-S ..hlRAAAW-S .4^M£N-, -.- - _ : 

IF PARAMStPC + n.CUU'l THEN 
HRANGE«=PARANSCPC5«PC+1] .C2iJ27J; 

endtqg>slrange»eofmark; 'f, pri nt " End" 

end; 

M0NlTRl«B0QLEAN(Atn,C9in) THEN * MONITOR HEWUESTED 

.„a£.G.lN... _ „ ■ _: 

0ISKWAIT(l,Bi.30*A[4] j; H USERS/CAiMDE HECo'RO 



IF 



FILL MONFIL WITH B[12]*USEK' 
..SXARCHLM.ONFIL^J.;*]); 

IF MONIT« I- Bte] gTR THEN 

BEGIN 
READ SEEK (MQNFILi BCSJfl 



% MCJlsnOH 
X FILE is 



FILE i^iAME 
PRESENT 



00050316 
*****00O5O3ia 

-...Q-aoj3.aj2.o-,. 

m; 000JJ0322 
00050324 

JUl-05. 32ft 

000i>0328 
00050330 

...xxj-uS-O-iaz 

00050334 
000S0336 

iioiiiajaa 

00050340 
00050342 

- -Qil.ii^Q..3AU 

*****00050400 
*.****OOO5O500 

O.M.iQiili} 

00050520 
00050530 

Qfl.i^.5.Q6-a.a. 

00050700 
00050800 

00050900 

00051000 
00051100 

_ aQ..0.5.i2.Q.Q.. 

00051300 
00Q51400 

- iJiiasisiiQ.. 

O00bl6OC 
00051700 
0051600 
00051900 
00052000 

Q.0.0i24-0il .. 

00052200 
00052300 

-.- QJl9JiZii.QSL.. 

00052500 
00052600 

.£JLkLQ00527.0ja... 
00052800 
00052900 

.QL0.Q.5iO0Xl. 

00053100 
00053200 
0^a54-3XXC^ 

00053400 
00053500 

iKiOJJiiiiia. 

00053700 
0OOS3710 

aaojiizi2.... 

00053714 
00053716 
flMil2XS__. 



T< 



3 ); it SET PqiNTEH TO NEXT R£COHD 



00053720 
00053722 
Q 0OS3 72 4 - 



m • 



3, 



MGNITORHEADER; % put CONTHUI. HtCORO IN MCiUTOK riLf 
end; X IF FILE IS PRESENT 

-e#o; -1 -I F M aM-TX]-s.-R€4ajj4:Ji-i £0— - 



B 
f>l 
■/ 
t 

9' 

r— 

[1,1 

II 



114 

ii> 

17 

1!* 



7S, 
»3j 
27 
26 
29 
30 
31 
32 

3;) 

I 

35 

37 ~ 

jse 

39 
40 
^ I 
«2 
43 
44 
46 
46 
47 
48 



49 
SO 
51 
52 
53 
54 
56 
56 



X TRANSFER "IP" RECORDS TO ARRAY SORTA 
REA0(PFILE»30*AC*J)i t 1ST RECORD 

.ii.ll».R2.i,»0/,. ._ , 



WHILE ACN13 NEW EOFMAPK DO 
BEGIN 

-„ SjQ8TAt.Ml+.N2il=ACMli _ 

IF N1»«N1+1 GTR 29 THEN 
BEGIN 
N2»sNg + 30/. Nl.«*Q./ _ 

r e a d ( p f i l e ' 3 * a c * ] ) ; 

end; 

- LH.D1 .„.„,„. 

S0RTA[N2«»N2 + NnJa8EOFMARK; 

S0RT(0>N2-1); 
IM Nl » *0 STEP 32 . UNT IL N2 . QQ 

M0VE{32*30RTACNn*S0RTAACM,C38;5]**J ); 

SWAP; % RETURN CORE SPACE 
.,.*-»..,i .*,»,,•. 4 •-*-§.*... , ..,. ,., _ .,. . 

STARTMERGE! 

X . t ,,....« « 
. P S EQ J » C P W OR D « « S R T A A C C » Q.l J.. LlllZUi. * 151 SlQ ^ . N U M B£R. IK .. liJ!J'. FILE. 

C0DE««:PW0RD.ti:2]; PPTRSsO; 

PCTlaNCHGJ3NCTl=TCT Js-1/ 

IF SFUG THEN. % NaT TYPE DaTa FiLt 

BEGIN 

READ(QLDTAB'30*TC*])i TPTR s»nPTR J 'O; 
-. -EN-O - -. - ..- .-. - „._ 

EL^E 

BEGIN 
- -READ SE£K(.SQUfi£E.iC.ia.i MAJ5.,l=£JQ.EJ:.Q.ain.l,SJU.URi:£.3+.li. _ _._ 

tseq «* o; 
end; 

4.jl„l,.«-.«.,« ... 

TLOop: ' ""■"-■ " 

or 

ifirLQ THLN, X SEQUEHCEQ.flLE 

BEGIN 

IF TPTRJ»TPTR+1 GTR 29 THEN * SE(iMEN1 IS EXHAUSTED 

B.EGIN _ 

REAO(OLDTAB,3o/tC*]W % GET Ntw SEGMENT 

tptr:=o; 
£nD± 



TSEQt«TCTPTR],t2ll27J; TcTJ = TCT + i; :« OLD SeQ, NO. AND LOCATION 
IF TSEQaEOFMARK THEN ClOSEC OlDTAB ) i 

._.EN.D- _: ..:... _. . _ __ _ 

ELSE 

BEGIN % WON-SEQUENCED TYPE FILE 
l£._IStS_J= (TCT»»TSEQ) * 1 0TR_KaX__1 h£N 



000^3726 
00053728 

00053800 

00053900 

.QXLft5-4QD.JD. 

ooosaioo 

00054200 
.Q.Q0M1QQ. 
00054400 
00054500 

...Q.QP.S.4 6i).i3 

00054700 

00054800 

Qil054-9.Q..Q.. 

00035000 

00055100 

.aa«i35.2Q-Q. 

00055300 

00055400 

0.Q.Q.5.550Q. 

00055600 

00055700 

0Q.Q55flJDQ 

00055900 

00056000 

00056200 
00056300 
-0^i364 0Q - 
00056500 
00056600 

00056800 
00056900 

0.00.5700.0 

OOU57100 
00057200 

00057400 
00057500 

00057700 
00057800 
00057900 



BEGIN 

TSEQ i» eofmark; close(qlotab); 

TCT i»_MAx;_ 

end; 
end; 

* •.l-tJ..«_tJ!_ , 



00038000 
00058010 
0005 8^00 
00058200 
00058300 
00056400 



00058500 
00058600 
00058700 



y. 



COMPAREJ 
X*ft**** 

If TSEQ LSSPSEQ THEN % NO CHANGE TU THIS RECORD 



00058800 
00058900 
00059000 



00059100 
0005920C 
0005930c 



BEGIN 

EOLTOGjaTRUE; SEQ: = TSEt:; GO TO aKITENEW; 

mDJ _ _ _ 



1 

2 
3 
4 

|r, 

6 
V 
8 

I'l 

II 
I 
1 > 



-.1 
l|B 
19 



EOLTOG «a TSEQ * PSEQ; * NEW RECQHO SEQ, MATCHES OLD 
Jl • • t f « • 

,...P£Y,£LLI _ _. . 



IF PSEQsEOFMARK THEN GO TO ENDMESOE; 

-.U.LLnL?A i:HEJi._l .BEXEIE. . CODE. .„.„ _ _.._ 

BEGIN 
BrULL»"FALSE; 

- PRE^ i..» P.S E9.1.._ Ji. .iAV£_CLLRE£N.T. PSEQ NU HRFR 

PPTR$=PPTR+i; % GET THE IvEXT P5EU NUMBER 
PSEQ«s(PW0RD:=S0RTAACPPTR,[3b»5]'PPTH,t^ 

C0.DE:. = PiN.gR|l,I.l.«.2.U ....„ .._ 

PSEQ»PREV and CCDE.[47;iJsO THEN GQ PCYCLE^ 
CHANGES THEN IF NUT BKAAK THEN MSG(1,PREV)> 

EQLTOG THEN I! . "CLQ" FlECDRD L.S. UEJ-ETED_ 

BEGIN 

CaPYTQG;=TRuE; X COPY ^ILL BE KEQilREC; 

NCHG : = NCHG* li * . STaRE .-.'.'DELIT £" liiS T.RUxTj_U.Kb .LaH,.TiiXS 



■000b940C 
00059500 

QM.Slfi.Q.Q_ 

000S97C0 
00059800 
0005 9900 



S5n).L21J27] 



IF 

IF 
IF 



% 
% 



NEW ReCURd FOL 
"DELETED" MESS 



.-RLCORD... 



LOWS 
AGE 



26 

27 

28 

29 

30 

31 " 

32 

"l 

Ml 

T\ 

39 

40 

4, 

42 

43 

44 

«_ 

146 

47 

481 

49 

50 

51 

5; 

53 
54 
55 
56 

57 



IF 



CHNGSCNCHG.C8dJ5]/NCHG.['*3J5J3SsTCT&lCl J4/;1 J; % DELETE CODE 
IF MONITR THEN % PUT BLaNK RECUrd IN mONITUr f ILE 

BEGI.U 

8LANKLlNE(M*PRtV); 

writecmqnfil*10,a[*j)l tldofj; 
, end; 

GO TO TLODP; % ADVANCE "UlDTAo" POINTER 
END; % IF EQLTOG 
GQ. .TQ CO.MPAR.£|._X_J.F.„..N0T. .E.Q_L.LQG , 

End; % if code » i "" " 

C0DE=3 THEN % FIX CODE* CHECK FOH RECORD FIRST 
BEGIN _.. . 



00060000 
00060100 

00060300 
00060/jOO 
QOO6O5OC 

00060600 
0C060700 

-..Q-Qiiu.0-aan . 

00060900 
00061000 

-.qqaiLiioo- 

00061200 

00061300 

..acCfilAOQ 

00061500 

00061550 

.,00q6.t-&60 
000615/0 
00061580 

00061600 

00061700 

-Qi}.0^i.a.0jQ. 



IF 



NOT (EQLTOG OR BFULL) THEN % NO SUCH HECOHQ 
BEGIN 

.,- Ma,GC.2.*PS£Q.lX..l !.'ii£iT..i.N, .Y.Ilua_ElL.£..''. „ 

gq to nextp; 
end; 

.EM,;,.-,. _. _ 

TANKADRS:»BASErPW0RD,[/iJ4]]" + PwORO . L6 J 83; % TAN^ Ro'w "aDDRESS" 
DISKWAlT(l*A*3Q#TANKADRi>3; % GET INPUT FROM TANK FILE 

_A2.J.?..A1 .+ PWDRD.C16J5J; it STAR TING ADD RESS OF INPUT _ „ 

NCHRS := SIZE0FINPUT(a2)-1; * POSITION OF LAST CHARACTER Vn US"ehS ~ 
EAUrs := CA2 + NCHRS, [aO:bn & NCHRit 30 ; 45 : J J ; % END OF RCRO AODRE 

JI-_.C0.Q£_.NE.Q.3 THEN i_N01_j^. FIX J.JMfiA.N(i 



00061900 
00062000 
000623430..- 



iNPUT 
SS 



00062200 
0006230G 
.110^-624.0X1- 
00062500 
00062600 
JIilP6iL7J).a-, 
00062600 
00062900 



IF 



BEGIN 

Reformat (A2»8i'B4* PSEQ* cPwoRuiCiJ23«o)#SFLG#EADRS); 
bfull«»true;_x new recohd_jn "j" 

GO TO NExfp; 

end; 

NOT f I X C H K c A 2 » 1 *C 2/J l^N 2^»£_t' R SJ__T H E^N * 

BEGIN 

MSG(3*PSEQ); % "IMPROPER FIX" 

GO TO NEXTP; ___ 



00063100 
00063200 



■Fix" syktax error 



0006 3400 
00063500 
00063600 
00063700 
00063800 
00063900 



end; 

IF N2. [33115] 
a£fiJLN 



GTR 



MSG(4#PStQ); 
GO TO NEXTPi 

end; 



A4 THEN % SHOULD MJT BE HERE 
"M TSSING "group MARK" "' 



00064000 
00064100 
00064200 
00064300 
00064400 
00064^00 



00064600 
00064700 
00064fl0Q 



1^ 

3 

4 

5| 



7 
8 
9 

10 
11 
12 
13 
14 
15 
16 

"( 

18 

19 

20 ( 

21 

22 

23 ( 

24 

2S 

26 { 

27 

28 

29 ( 

30 

31 

32 < 

33 

34 

35 < 

36 

37 

38 ^ 

39 

40 

41 4 

42 

43 

44 I 

45 

46 

47 i 

48 

49 

50 I 

51 

52 

S3 f 

54 

55 

56 f 



# • 



^n« 



1 

I:. 

b' 

fi 
/i" 

B 
9 

!'«'" 

'VI 

1 
)13! 

Ins 

1161 

lis 
|l9 
I20 
121 
'22 
23 
24 
'26 
U 
27 
28 
20 
30 
31 
32 

u~ 

3b| 
.W 

37" 

m 

40 
41 
42 
43 
•4 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
SB 
56 



IF NOT BFULL THEN X GET HECURD TO bt. "FIXED" 

BEGIN 
-.- -.BEAD.t..§QUR.C£IJ.C..Tl.zXC.*..y,L.*iJ./ ^. PUX__i!^...J'Ji'. 

bfull««thue; 
end; 



gSRtOl-i-H^ll- XHE.N. 



00064900 
000G5000 

00065200 
00065300 

-OOUASaag.. 



-IF. mi.JjlCAlZ.cB..uR2a.B-UiiJi-^Ess:SZM^tlXjLl 

BEGIN 00063500 

MSG(5*PSEQ); % "CANNUT FIND FIX blRIi\G" 00065600 

- ikn. IO.,,N£X,l£i _,.. .._. _ ..,.„ _,.. _ _ iX0.Q.ti5.W.Q.. 

end; 00065800 

IF SIZ(B3*B4) LSS C IjZn : sS JZ ( Nl* N2 ) )-b20 THEN 00065900 

Bi:.fiJ:,.N - .,......., ,- _ „ „ 00066000 

MS6(6*PSEQ); % "NOT LNOU(,H KGUM f UR FIX" OOO66IOO 

GO TO NEXTP; 00066200 

-- --£.WO.i — , „.-. ._ _ aOiij66.3i3-C. 

EDIT(B2^84jB5,S20,N1*S2N*SFLG); X RLPLACE old srKiNG WITH NEW STRING 00066400 

*•»•♦• 00066500 

-ii£XIfi,S 1 LOOK Al HLXl...!'.lE»-.MnRa _ _,. ._ 00006.60^ 

* OOO06/OO 

PREVJ=PSEq; % SAVE CURRENT "IP" SEQUENCE NUi^BER 00066800 

PeiRj.=£,PJR±.li .1.., CHECK. N£X1-J!M£!1 ^nE.k _._... _..I}O.QA6a0.0 

pSEQia(pWORDl=SoRTAACPPTR.[36l53*PPTH,t43:5 J]).C2l«27]; % NEXT "IP" Wq. 00067000 
COOE««PWORD,[l»23; OOOo/iOO 

I.F.. P^£V5PS£Q THEJ^ fiQ. TD..PCYCL£i 1.. D.tJ*xJXLAT£/ MUfst 7.a-.B£-.J10.RL QQ06F200 

IF NOT BFULL THEN GO TO CDNPARE; * IGNORE LAST INPUT 00067300 

SE«J=PREV; % USING THIS SEU. NUMBER 00067^00 

,Wfii.J£{PATCH^.10.^aI*3.Ji PCTl=p.C.I+i./ .*.. _,MQk£.-aLXasa lO. .EAl.C.H-.£l4j£ AND CQ-UhJ ..00.^6.7.500 

IF NOT EQUTQG THEN COPYTOG « sTRUEi % NEW ADDITICN IF NOT EQlTQG 00067600 

NCHGJsNCHG+1; % save "audition" instruction 00067700 

.II.HN GS^[ N c H G 1 1 18? ^ #.N C h G ..IA3 15.11 .L»IiLl&i££A L.I£WJ..I.Q il ) ? L2 HI U i; 00067800 

IF MONITR THEN WRI TEC MONF I L^ IC/b t * ] ) t mQNEOI- J ^ 
GO TO skip; MONEOF: ^'CNITR!=FALSE; bKIP; 

XF.._CH.A.NG.£;S..TH£N _l£ not b.RAAL.,.Tii£N % PRIN T Th IS RtCGRD 

BEGIN 

IF NUMBERED THEN 

e£.GI,.N 

REKNUMBEH(Al*NCT+2); 
TWX0UT(AC0]*9#1 )> 

LfiDf. ^ __ „ 

OUTFORMAT(Al*Bl*B4»SQUASHED'SFLG*PRNt~3; 

TwxouT(Ai:o],8i>u; 



WRITENEWI 



NCTlBNCT + i; X OUTPUT FILE RECORD "CQuNT 
IF SfLG THEN X wRlTE TAB FILE IF NOT TYPE DATA 
BZMfL 



0006781C 
00067820 

00068000 
00068100 

00068300 

OOO684OO 

.0.0-^6.85^30-.. 
00063600 

00068700 
00068800 
"00068900 
00069000 
00069100 



IF NPtRi*NPTR + i QYp-j,9---f^-^ -■ ^- SEGMENfTS F lIutD 

BEGIN 

W R I T Ei N E WTAB/ 3C *_N i*: )) % CU TPuI TO DISK _ _ 

NPTRfO; 

end; 

NtNPTR3j^»0&SEQi2l »21 »27 ]fcNCT C^ «32 n6 3; 



00069200 
00069300 

00069400 

00069500 

00009600 
00069700 



00069800 
00069900 
00070000 



end; 

IF NOT BRAAK AND PRNTCHK THEN * PRINTING STILL ulK 
^BEGIN 



IF SEQ GTR HRANGE THEN X GET NEW PARAMETERS 
IF PRNTCHK Jk PC LSS NPARAMS THEN 
BEGIN ____^^__^ 



ooo/oioo 

00070200 
0007030 
00070400 
00070500 
00070600 



2 
3 

A ■ 

Ib 

(> 
I 
n 

19 
iK' 
1 I 

1 

,'■*! 
I'. 

n 

IS) 



25i 
26, 
27 
2B 

r 

fJbj 

r' 

08 
39 

40 
41 
42 
43 
44 

r- 

|4« 
49 
SO 
SI 
62 
53 
S4 
55 
i6 
S7 



LR ANGE :=hRANGlc::=P ARAN'S [PC :=PC + n; 

ENDTOGt sLRANGtsEOF mark; * rtAM6 "tiMD" PRIMtC 

IF,, P.,.C L.SiLaP^iLAi/.S.,...liliL.I^ 

IT PARAMSCPC + U,[isn»l ThEN 
HRANGEIbPaRAMSCPCIsPC + 1] .C21lii/3; 
..LMDi ._ 



000/0700 
000/0800 
■a0iJ/Q90.^ 



IF NOT (BFULL AND ChANGEb) IhEN a NO] ALHtACY PRINTED 

IF SEU GEQ LRANGE THEM IF St.4, LE>« HRANGL Tht.N * IN RANGE 

BLGilM __„. _.,._ _ 

IF NOT BFULL THEN % GET RECORD 
READ<S0URCEtTCT]*10>H[*] j; 

- - IF.„.N.U.MaES£D_ iHLh _ „ __ __ . _ _ 

BEGIN " 

REKNUMBER( Al,NCT + n; 
I,W,>?.0,UXC,.A.L,Q.JU5,ia,lJ- _ _ _, . _ _ 

end; 

QUTF0RMaT(A1*B1*B4*SQUASHEU#SFLG>PRNT); 

:Twxout(aiq]#81jJ); 

end; 

end; % IF NDT BRAAK and PRNTChK 

.BFMLLI--FALSE; 

IF EQlTOG THEN GO TO TlUQP ELSE Go TQ COMPARE; 
%.« 

.£.NDMERG£J 
%, 

IF ENDTOG THEN IF NOT BRAaK THLn ^ hlU.sjT "li\D" 

BEGIN 

Ni >= nchg; n2 js tct-1.; 

IF NCHG GEQ THgN 

8E.Gm ^ __ _ 

enuloop J • " ~ 

IF BOOLeANC (I: = CHNG'^[N1, L3b:^J,Nl,t'i3:b] J).U»n) THEN * DEUeT 

BLG.IJ1 



000^1000 
OCO7UO0 

000713CC 
000/UOO 

00071600 
00071700 

..jiau-? 44^-0- 



000/1900 
000/2000 



IF I,t32!163eN2 THEN N2lsNii-i; % DELETED SCuRCEFiLE RECORD 
IF CNU»Nl-n GEO THEN GO TO ENDLOOP; 

end; 

IF BOOLE AN(I.[l!ij ) y -----y---;. ^ ^-^^v^ ----,.^. --^^^^ |-y v" 

END ELSE I ;= -i; 

J.F C.N2 GEQ .OJ OR C L.(?,i;.a_.0..).....I HEJ^._i ThEKE ARE HECa_Ri)b_IN _TJ^t: FILL 

IF NOT (I GEQ TCT AND CHANGES) THEN % NOT ALREADY PRINTED"" 
BEGIN 

l.F.._i_GTR_N2 TH E^: HEM< P A.I.g.hl PC T ] , 1 «.B L * JJ * GET FRO M PAIGH 

ELSE «EAD(SOURCE[Ni^]/lO*Bt*]); " ' "'"" " ' ~" 

IF NUMBERED THEN 

BEGIN _ 

REKNUMBER(A1»NCT + 1); "" '"""'"' 

TWX0UT(AC0]*9;n; 
-^ £.MD.J(.. 



000/2200 
000/2300 

- — XUUJ.Ziiiu3-a- 

000/2500 
00072600 

— ■ iXQ-QI.2-7.QQ- 

00072800 
00072900 

- ..- ooozaaoxj 

000/3100 
000/3200 

..-._ QDii ,03.0.0 

00073400 
000/3405 

oaeiiiLiD 

0007341b 
IDN000/342C 

— J3iLQi.i4,2.i3 ,. 



00O73i«3C 
00073435 

QMIMM.. 

000/3445 

000/3450 
000 /3455 

0007 3500' 
000/J600 
00Q7 370Q 



DUTF0RMAT( A 1,B1,B4# SQUASHED;. SFLG,PRNT); 

twxoutcac03»81m); 
end; 



000/3800 
000/3900 
OQ.U^*»000 
00074100 
00074200 

.00 QiAsnn^ 



end; 

If SFLQ then % FINISH UP TAB FILES 



00074400 
00074500 
OOO /46O0 



IF NPTR5=5NPTR+1 GTR 29 THEN i SE'uMEnT ""isTlLLtD 
BEGIN 

_ -WRJTECNEiNTAB^3C,NC*]?; _« UOTPJT ]Q QiSK. 

NPTR««0; 

end; 

FOR Ho' NPTR STEP 1 UNTIL 29 DO NC Ul^EPFMAfiKJ , ; 



00074700 
00074800 



000/5000 
000/5100 



7 

8 

9 

10 

11 

12 

13 

14 ( 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 || 

27 

28 

29 I 

30 

31 

32 I 

33 

34 

35 I 

36 

37 

38 I 

39 






00075300 
00075400 
0Q 0/5 5QQ 



44 I 

45 

46 

47 ( 

48 

49 

50 { 

51 

52 

53 ( 

54 

55 

56 1 

57 



write:cnewta3*3o*n[*];; 
End; 
aEMlAmXP^TCHO i _ 



.10' 

1 , 

1!> 
1G 

17 

|lB 

yjl" 



1" 

|24 

RS 

i« 

27 
28 
29 
30 

ai" 

32 

;( 

36 

37 ~ 
38 

33 



t2 
»3 
«4 
4S 
•6 
47 
48 
49 
50 
61 
52 
53 
54 
55 



IF NOT COPYTOG THEN % COPY NOT REQUlHtD 
BEGIN 

-- EXlH-llsX) S.I£E ...1 _.UNXJ-1 N-ayii-JiXJ _ _ 

BEGIN 

Ni;=CHNGSCI.[3e:5J/I.L4i:5n,[J2!lG]; 
RE.A.DIPATCH.^l.fii'.a.I^lli ?t,..M.PkACiM£ri.L_fii:i;yHil 

WRlTE(30URCEtNn*10/,8[«]3; % INSERT RECORD 

end; 

IF N.CHG.GEQ.. .THEN._IL-R£-Aaj.iiSI..B.iUi:KlM _£ACTGHS 

BEGIN 
MAKE300(3QURC£*(l0ii30(.30J36U<iJ4J00[ii:j3!i5]ii0[i:i4!l43;); 

- CkP5£.(5QUM£Ji,..LQCKXMM.Aa,eO,l... , „.._ 

end; 
end % if copy not required 
..ELSE : 

BEGIN 

CLOSE(SOURCE); NPTRI^I:*-!; F INTUG : »F ALSt; MTSsTrUE; NEXTPaTCH; 

.,..,4-.»_«.«,..f, •., » _ 

READIN: 

READtSRCE^ lOi..8 C * i.) CEUFl ; I ?..«.l +17, * fi£AD a£R.iAL F jL£ „... 

CYCLEt 

If'nOT FINTOG then * MORE CHANGED 

IF laNi then X inSertion^repiacement QR 0ELETIOi\ 

- BEGIN - - ..- ., ^ 

IF NWQRD.Cl'l Jsl TriLN % OLLETIGn 

BEGIN NEXTPATCM; GO TO KEAUIn; Enu; 

IF N-W0.Ra.,Olli.= C._..-T.h_EN..X,iM£b:ii^ __ 

BEGIN 

READ(PATCH#1C*A[*3); 
WRITE(WRKFlLilO»At*33i MTJ=FAlSE; 

nextpatch; gc to cycle; 
end; 

I.,.,R££.LA„C£.M£,NI. _.„. ., 

REA0(PATCH#ie*e[*3 ); 

nextpatch; 

END A «. IF I«N1 „ _ 

WRITE(WRKFIL,10*BC*] j; MTJ=KALSEi 

GO TO readin; 

-.A-«.-I.-« _.,_ , „ , 

EOFj 
% • » ♦ 

- _-.WHl£E NM.£.lN.iaG .00 _ _ _ _ 

BEGIN 
READCPATCHMO^ec*]); 

— -.w-ajx F c w R K F u. >.ax-^£*ajj. -mj l=f a l ^ £; 

nextpatch; 

end; 

IX-,.MJ. Tii£N. READ SFFKC WRKF 1 1 LQ 3 ] ; X HPgN nii TPUT FTlF 

CLOSE(SRCE); LUCKCWRKFIU**)/ LOCr\ (NEW T Ad^ * ) > 

end; * IF COPYTOG 
-ENLg- BLOCKJ . 



000/b6CC 
000/6100 

00076300 
00076400 

QOU/bbOO 
000/'670C 

Q0.0.?.6a.QJD. 

000/6900 
00077000 

.M.QU1Q.Q 

000/7200 
000/7300 

..aQ.0 7 7.4.QO 
00077500 
000/7600 

.00077.7.0.0. 
000/7800 
00O77900 

.00.0 /.a 000. 

00078100 
000/6200 
00.073 30.0 
/ d a 
00078500 

000 78600 

Q0U/d70u 
00078800 

-oaiinZ-asuw- 

000/9000 
00079100 

....Qfioi92aa_ 

000/9300 
00079400 
00079500 

00079600 
000/9700 

. anmiBSi.a. . 

00079900 
00080000 

0QQ8Q10 

00080200 
000d0300 

_aii.ojifliu3.g_._ 

00080500 

00080600 

.QilOJii)2.tLa. 

00060800 
00080900 

_nn,Oriionn 



00081100 
00081200 

o ooa igso. 



END PROGRAM. 
ENOICNO. 



OOOdUOO 
00081400 
OQ0dl4|Q 



LAST CARD ON OCROlNG TAPE 

_- CN R » CNR *■ m>* L LLE-RAL..!- 



00081500 
99999999 
28^ 800 00 



1^ 

24 
3 
4 
54 



9 

10 



-_E? 



• • 



LABEL OOOeoOOOOpRIMKHOOl/SlOOCC cX OB Jt.C T /RF. AU; F U£ bOURCtf I LE*S YMBUL/L I b F > END*- 



OBjtCT /READ 



ft 

h 

in'" 
111, 

1^"" 
% 

\6 

|17 
IB 




1^ 

a 

4 
5( 



7 

8 < 

9 

10 

11 ( 

12 

13 

14 < 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 1 

24 

25 

26 1 

27 

28 

29 { 

30 

31 

32 f 

33 

34 

36 

36 

37 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 
49 
50 
51 
52 
63 
54 
55 






m 



m • 



